home *** CD-ROM | disk | FTP | other *** search
- /* $VER:2.6 for DoSound v2.6
- */
- List_InsertSingle=0x804254d5;Application_OpenConfigWindow=0x804299ba;MUIA_List_Format=0x80423c0a;Draggable=0x80420b6e;Dropable=0x8042fbce;Group_Columns=0x8042f416;Listview_DragType=0x80425cd3;Listview_MultiSelect=0x80427e08;List_DragSortable=0x80426099;List_ShowDropMarks=0x8042c6f3;List_active=0x8042391c;List_InsertPosition=0x8042d0cd;List_Quiet=0x8942d8c7;List_Format=0x0423c0a;Menuitem_Shortcut=0x80422030;Menuitem_Title=0x804218be;MUIA_Frame=0x8042ac64;MUIA_Window_Height=0x80425846;MUIA_VertWeight=0x804298d0;MaxWidth=0x8042f112;Slider_Level=0x8042ae3a;Slider_Max=0x8042d78a;Slider_Min=0x8042e404;Weight=0x80421d1f;MUIA_Window_Height=0x80425846;MUIA_Height=0x80423237;Selected=0x8042654b;TRUE=1;FALSE=0;Listview_DragType_Immediate=1;Listview_MultiSelect_Shifted=2;List_GetEntry_Active=-1;List_Insert_Active=-1;List_Insert_Bottom=-3;List_Insert_Top=0;muiv_list_remove_selected=-1;ag="";as="";b=d2c('02');btxt="";call getclip(tem);temps=result;options results;arg name;if left(name,4)=setp then;do;pages=right(name,length(name)-4);call setclip(pgs,pages);exit;end;if left(name,4)=sett then;do;temps=right(name,length(name)-4);call setclip(temp,temps);address build;popasl ID DLST CONTENT temps;exit;end;call open(file,'ram:env/ha','r');parse value readln(file) with host;call close(file);name=strip(name);if left(name,4)= des. then call des;getselecteduser;if name=warnend then;do;address command 'deLete' temps"/#?";address command 'deLete' temps;address BUILD 'quit';exit;end;if name=LEAVE then;do;address BUILD 'quit';exit;end;if name=warnop then;do;address BUILD;window ID WARN CLOSE;call oper;exit;end;if name=warnsave then;do;address BUILD;window ID WARN CLOSE;address command 'copy' temps"/#?" 'to sounds:';address command 'delete' temps"/#?";address command 'delete' temps;address BUILD 'quit';exit;end;if name=end then;do;address build;window ID INST close;exit;end;if name=instuse then;do;address build;string ID COM1;comercial=result;call setclip(com1,comercial);window ID INST close;exit;end;if name=Instant_Play_Text then call instant;if name=Last Saved then call lastsave;if name=OK then call OK;if name=clear buttons then call clrbut;if name=close then call wclose;if name=refresh then call refrsh;if name=stop then call dgsstop;if name=operator then call oper;if name=get then call sget;if name=pplay then call splay;if name=refresh listings then call updateop;if name=gotit then call updateop;if name=NetPlay then call netply;if name=program_settings then call settings;if name=quit then call wclose2;if name=get on then call geton;if name=get off then call getoff;if name=send on then call sendon;if name=send off then call sendoff;if left(name,4)=maxg then call mxg;if left(name,4)=smax then call smx;if name=save then call us;if name=use then call us;if name=transfer_s then call trnsfers;if name=transfer_all then call trnsferall;if name= delete then call del;if naME=exit then call quitting;if name=pc get then call pcg;if name=flush getfile then call flushg;if name=last try then call lt;if name=nickplay then call nckply;if name=organizer then call buildorg;call getclip(del);if result=1 then call delete;if exists('ram:env/sget') then;do;call open(gfile,'ram:env/sget','r');parse value readln(gfile) with reslt;call close(gfile);if reslt=1 then call getsound;end;call getclip(nckply);if result=1 then call nkplay;call getclip(lt);if result=1 then call last;call getclip(sp);if result=1 then call play;call getclip(tfrs);if result=1 then call trnfr;call getclip(np);call getclip(pcg);if result=1 then call pcget;parse value name with name","len lgth;if len=">" then;do;len=lgth;address command 'assign sounds: 'temps add;end;call setenv(tf,name);call getenv(tf);wave=result;wave=strip(wave);call getclip(com1);parse value result with mess "<" string1 ">" string2 "<" string3 ">"string4 "<" string5 ">" string6;comercial=mess||b||string1||b||string2||b||string3||b||string4||b||string5||b||string6;call getclip(com);comerc=result||comercial;len=strip(len);name=name||comerc||"~~Size:("len" bytes)";address(host);'say' "/sound" name;address command 'assign sounds: 'temps remove;exit;sget:;call setenv(sget,1);call setclip(sget,1);call setclip(sp,0);call setclip(del,0);call setclip(pcg,0);call setclip(nckply,0);return;refresh:;call busy;address command 'delete ram:soundfile';address command 'delete ram:wavs';address command 'list sounds: p=#?.wav lformat=%p%n:%l:%c >ram:wavs quick';address command 'sort ram:wavs to ram:soundfile';call open('sfile','ram:soundfile','r');call open(file,'ram:env/sct','r');scnt=readln(file);call close(file);address build;call getclip(pgs);pages=result;do index=1 to pages;list ID LT||index STRING;end;scnt=0;do while ~eof('sfile');parse value readln('sfile') with stuff ":" name ":" len ":" com;if com="" then com=1;if com>pages then com=1;strng=name","len;index=right(com,1);if name ~="" then list ID LT||index INSERT POS List_Insert_Bottom STRING strng;scnt=scnt+1;end;call close('sfile');call busyend;call getclip(tfrs);if result=1 then;do;return;end;exit;dgsstop:;address(host);getmynick;me=result;call setenv(stp,1);'raw notice' me' :'"DoGetSound is now off";exit;oper:;call setclip(sp,0);call setclip(tfrs,0);call setclip(np,0);call setclip(del,0);call setenv(sget,0);call setclip(pcg,0);call setclip(sget,0);call setclip(lt,0);call setclip(nckply,0);address build;window ID OPRT TITLE '"OPERATOR"' PORT BUILD;menu LABEL "MENU.... ";item COMMAND '"getsfile.amirx %s"' LABEL "Close";endmenu;group HORIZ;group;group 'FRAME' LABEL "Get File";list ID GLST COMMAND '"getsfile.amirx %s"' ATTRS muia_List_Format '"BAR , BAR, P=\033r BAR,P=\033c "';endgroup;group 'FRAME' LABEL "Retreaved";list ID RLST COMMAND '"getsfile.amirx %s"' ATTRS muia_List_Format '"MIW=50 BAR,MIW=25"';endgroup;endgroup;group;group 'FRAME' LABEL "Project";space;radio ID PROJ COMMAND '"getsfile.amirx %s"'LABELS 'Clear Buttons,Get,PC GET,Last Try,NetPlay,Pplay,NickPlay,Transfer_S,Transfer_All,Refresh Listings,Delete,Flush GetFile';space;endgroup;endgroup;endgroup;endwindow;if exists('ram:soundin') then;do;call open(sfile,'ram:soundin','r');do while ~eof(sfile);parse value readln(sfile) with wav"/"nck"/"sz"/"ref;strng=wav",(NK) "nck","sz","ref;if wav ~="" then;do;list ID GLST INSERT POS List_Insert_Bottom STRING strng;end;end;end;call close(sfile);if exists(temps) then;do;address command 'list' temps 'lformat=%n%L >ram:tempwavs quick';call open(file,'ram:tempwavs','r');parse value readln(file) with oo;call close(file);if oo ~="" then;do;address command 'sort ram:tempwavs to ram:retreaved';end;else;do;address command 'delete ram:retreaved';end;end;if exists('ram:retreaved') then;do;call open('rfile','ram:retreaved','r');do while ~eof('rfile');parse value readln('rfile') with wav"."size;if eof('rfile') then exit;lnth=length(size)-3;size=right(size,lnth);strng=wav".wav,> "size;list ID RLST INSERT POS List_Insert_Bottom STRING strng;end;call close('rfile');end;exit;getsound:;if exists(temps)=0 then;do;address command 'makedir 'temps;end;address(host);parse value name with wave"."crap"," junk nck"," junkk ","ref;if nck="" then exit;nck=strip(nck);wave=wave".wav";if ref=wo then;do;'say /msg' nck "!"nck wave;end;if ref=? then;do;'say /ctcp' nck 'getsound' wave;end;if ref= DS2_X then;do;'say /ctcp' nck 'getsound' wave;end;call wfile;wfile:;if exists('ram:wfile') then;do;call open(nfile,'ram:wfile','a');call writeln(nfile,wave);call close(nfile);end;else;do;call open(nfile,'ram:wfile','w');call writeln(nfile,wave);call close(nfile);end;call setenv(wfile,wave);call setenv(ready,1);call setenv(nicky,nck);exit;play:;parse value name with name","trig sz;if trig="(NK)" then exit;name=upper(name);snddir='sounds:';if trig=">" then snddir=temps"/";call getclip(np);if result=1 then;do;call parstemp;return;end;wave=name;address command 'play16 'snddir''wave;exit;splay:;call setclip(sp,1);call setclip(del,0);call setclip(np,0);call setenv(sget,0);call setclip(tfrs,0);call setclip(lt,0);call setclip(sget,0);call setclip(pcg,0);call setclip(nckply,0);exit;wclose:;address build;window ID OPRT CLOSE;call setenv(sget,0);call setclip(sp,0);call setclip(np,0);call setclip(tfrs,0);call setclip(del,0);call setclip(lt,0);call setclip(sget,0);call setclip(pcg,0);call setclip(nckply,0);exit;wclose2:;address command 'delete ram:dosound.config';call setclip(temp);address build;window ID STGS CLOSE;exit;wclose3:;address build;window ID STGS CLOSE;return;updateop:;address build;list ID RLST STRING;if exists(temps) then;do;address command 'list 'temps 'lformat=%n%L >ram:tempwavs quick';call open(file,'ram:tempwavs','r');parse value readln(file) with oo;call close(file);if oo ~="" then;do;address command 'sort ram:tempwavs to ram:retreaved';end;else;do;address command 'delete ram:retreaved';end;if exists('ram:retreaved') then;do;call open(sfile,'ram:retreaved','r');do while ~eof(sfile);parse value readln(sfile) with wav"."size;if eof(sfile) then call update2;lnth=length(size)-3;size=right(size,lnth);strng=wav".wav,> "size;list ID RLST INSERT POS List_Insert_Bottom STRING strng;end;call close(sfile);end;end;update2:;address build;list ID GLST STRING;if exists('ram:soundin') then;do;call open(file,'ram:soundin','r');do while ~eof(file);parse value readln(file) with wav"/"nck"/"sz"/"ref;strng=wav",(NK) "nck","sz","ref;if wav~="" then;do;list ID GLST INSERT POS List_Insert_Bottom STRING strng;end;end;call close(file);end;if exists('ram:env/gotit') then;do;call open(file,'ram:env/gotit','r');parse value readln(file) with gt;call close(file);end;if gt=1 then;do;call setenv(gotit,0);call getenv(gotit);call delin;list ID GLST STRING;if exists('ram:soundin') then;do;call open(gfile,'ram:soundin','r');do while ~eof(gfile);parse value readln(gfile) with wav"/"nck"/"sz"/"ref;strng=wav",(NK) "nck","sz","ref;if wav ~="" then;do;list ID GLST INSERT POS List_Insert_Bottom STRING strng;if eof(gfile) then exit;end;end;end;end;call close(gfile);call getclip(tfrs);if result=1 then;do;call setclip(trfs,0);end;exit;netply:;call setclip(np,1);call setclip(sp,0);call setenv(sget,0);call setclip(tfrs,0);call setclip(del,0);call setclip(lt,0);call setclip(sget,0);call setclip(pcg,0);call setclip(nckply,0);exit;parstemp:;parse value name with wav"."len lgth;name=wav".wav";address command 'assign sounds: 'temps add;if len=">" then len=lgth;return;delin:;call open(dfile,'ram:env/nwav','r');parse value readln(dfile) with wav"."rstjunck;wav=upper(wav);call close(dfile);call open(gfile,'ram:soundin','r');do while ~eof(gfile);parse value readln(gfile) with wave"."jnk"/"nck"/"sz"/"ref;waf=wave;wave=upper(waf);waf=waf".wav";if wave=wav then;do;parse value readln(gfile) with wave"."jnk"/"nck"/"sz"/"ref;waf=wave".wav";end;if exists('ram:dsound') then;do;if wave ~="" then;do;call open(dfile,'ram:dsound','a');call writeln(dfile,waf"/"nck"/"sz"/"ref);call close(dfile);end;end;else;do;call open(dfile,'ram:dsound',"w");if wave ~="" then;do;call writeln(dfile,waf"/"nck"/"sz"/"ref);end;call close(dfile);end;end;call close(gfile);address command 'delete ram:soundin';address command 'copy ram:dsound to ram:soundin';address command 'delete ram:dsound';if exists('ram:nwav') then;do;call open(nwfile,'ram:nwav','r');do while ~eof(nwfile);parse value readln(nwfile) with wave"."stuff junk;if wave="" then signal cleanup;if wave ~=wav then;do;if exists('ram:dwav') then;do;wave=wave".wav";if wave=foo.wav then wave=foo;call open(dfile,'ram:dwav','a');call writeln(dfile,wave junk);call close(dfile);end;else;do;wave=wave".wav";if wave=foo.wav then wave=foo;call open(dfile,'ram:dwav','w');call writeln(dfile,wave junk);call close(dfile);end;end;end;end;cleanup:;call close(nwfile);address command 'rename ram:nwav as ram:nwavs';if exists('ram:dwav') then;do;address command 'copy ram:dwav to ram:nwav';end;else;do;call open(file,'ram:dwav','w');call writeln(file,foo);call close(file);address command 'copy ram:dwav to ram:nwav';end;address command 'delete ram:dwav';address command 'delete ram:env/nwav';return;settings:;if exists('ram:env/dosound.config') then;do;if ~exists('ram:dosound.config') then;do;address command 'copy ram:env/dosound.config to ram:dosound.config';end;call open(cfile,'ram:dosound.config','r');parse value readln(cfile) with ag","as","mxg","smx;parse value readln(cfile) with pag;call setclip(pgs,pag);call setclip(pgs1,pag);do i=1 to pag;parse value readln(cfile) with LS.i;clip="LSclip."i;pgname=LS.i;call setclip(clip,pgname);if labs=""then;do;labs="?,"||LS.i",";end;else;do;labs=labs||LS.i",";end;end;parse value readln(cfile) with temps;if temps="" then;do;call getclip(tem);temps=result;end;call setclip(temp,temps);parse value readln(cfile) with comercial;if comercial="" then;do;call getclip(com1);comercial=result;end;call close(cfile);end;call setenv(dag,ag);call setenv(das,as);call setenv(dmaxg,mxg);call setenv(dsmax,smx);do i=1 to pag;clip="LSclip."i;call getclip(clip);end;call close(cfile);address build;window ID STGS TITLE 'SETTINGS' PORT BUILD;maxg=mxg;smax=smx;menu LABEL "MENU.... ";item COMMAND '"getsfile.amirx %s"' LABEL "Last Saved";item ATTRS Menuitem_Title '-1';item ATTRS Menuitem_Title "-1";item COMMAND '"getsfile.amirx %s"' LABEL "Quit";endmenu;group HORIZ;group ID REG REGISTER LABELS 'Send-Rec,Pages,Page-names,Misc.';group;group 'FRAME' HORIZ LABEL "Auto Get";group HORIZ;gst=0;if ag=ON then gst=1;check ID AGT COMMAND '"getsfile.amirx %s"' ATTRS SELECTED gst LABELS 'GET OFF,GET ON';space;LABEL "Auto Get On";space BAR 40;endgroup;group;label CENTER "Max Kbytes";string ID MXGT COMMAND '"getsfile.amirx maxg%s"' ATTRS maxwidth 30 CONTENT maxg;endgroup;endgroup;sst=0;if as=ON then sst=1;group 'FRAME' HORIZ LABEL "Auto Send";group HORIZ;check ID AST COMMAND '"getsfile.amirx %s"' ATTRS SELECTED sst LABELS 'SEND OFF,SEND ON';space;LABEL "Auto Send On";space BAR 40;endgroup;group;label CENTER "Max Sends";string ID MXSD COMMAND '"getsfile.amirx smax%s"' ATTRS maxwidth 30 CONTENT smax;endgroup;endgroup;endgroup;group;group;slider ID SLDR COMMAND '"getsfile.amirx 'setp'%s"' ATTRS Slider_Level pag Slider_Max 20 Slider_Min 1;endgroup;group HORIZ;text LABEL 'Please Press """OK""" when finished';button ID USES1 COMMAND '"getsfile.amirx %s"' LABEL "OK";endgroup;endgroup;group FRAME;group VIRTUAL;do i=1 to pag;string ID LS||i CONTENT LS.i;end;endgroup;endgroup;group;group FRAME;group;text LABEL '\033c Select a place for Tempsound \n Default is RAM:TEMPSOUND';popasl ID DLST COMMAND '"getsfile.amirx sett%s"' CONTENT temps;endgroup;endgroup;group FRAME;group;text LABEL '\033c The text following a played sound is: \n ~~With \033bDoSound\033n vX.X~~ \n You may add anything of your choosing\n Place bold text between < >';endgroup;group;string ID COM1 CONTENT comercial;endgroup;endgroup;endgroup;endgroup;endgroup;group;group HORIZ;button ID SAVS COMMAND '"getsfile.amirx %s"' LABEL ""Save"";button ID USES COMMAND '"getsfile.amirx %s"' LABEL ""Use"";endgroup;endgroup;endwindow;address command 'delete ram:dosound.config';call busyend;string ID COM1;exit;geton:;ag=on;call setenv(dag,on);exit;getoff:;ag=off;call setenv(dag,off);exit;sendon:;as=on;call setenv(das,on);exit;sendoff:;as=off;call setenv(das,off);exit;mxg:;lnth=length(name)-4;maxg=right(name,lnth);call setenv(dmaxg,maxg);mxg=maxg;exit;smx:;lnth=length(name)-4;smax=right(name,lnth);call setenv(dsmax,smax);smx=smax;exit;us:;btxt="\033c O.K. I'll redo everything.";call busy;if exists('ram:env/dag') then;do;call getenv(dag);ag=result;end;if exists('ram:env/das') then;do;call getenv(das);as=result;end;if exists('ram:env/dmaxg') then;do;call getenv(dmaxg);mxg=result;end;if exists('ram:env/dsmax') then;do;call getenv(dsmax);smx=result;end;call getclip(pgs);pages=result;call getclip(temp);temps=result;call setclip(tem,temps);call getclip(com);comerc=result;call open(cfile,'ram:dosound.config','w');call writeln(cfile,ag","as","mxg","smx);call close(cfile);call open(cfile,'ram:dosound.config','a');call writeln(cfile,pages);address build;string ID COM1;comercial=result;call setclip(com1,comercial);do i=1 to pages;string ID LS||i port build;LS.i=result;call writeln(cfile,LS.i);end;call writeln(cfile,temps);call writeln(cfile,comercial);call close(cfile);if name=save then call sav;call wclose3;call mainrefresh;call busyend;exit;sav:;if exists('ram:env/dosound.config') then;do;address command 'copy ram:env/dosound.config to sys:prefs/env-archive/dosound.config';end;return;trnsfers:;call setclip(tfrs,1);call setenv(sget,0);call setclip(sp,0);call setclip(np,0);call setclip(lt,0);call setclip(del,0);call setclip(pcg,0);call setclip(sget,0);call setclip(nckply,0);exit;trnsferall:;address command 'copy 'temps||'/ to sounds:';address command 'delete 'temps||'/#?';call setclip(tfrs,1);call refresh;call updateop;exit;trnfr:;parse value name with namey"," junk;namey=strip(namey);address command 'copy 'temps||'/'namey 'to sounds:'namey;address command 'delete 'temps||'/'namey;call refresh;call updateop;delete:;parse value name with wav","junk ex","rep;if junk=">" then;do;address command 'delete 'temps||'/'wav;call updateop;end;if exists('ram:soundin') then;do;call open(gfile,'ram:soundin','r');do while ~eof(gfile);parse value readln(gfile) with wave"/"nck"/"rep;wave=upper(wave);nck=upper(nck);if wave=wav then;do;if nck=ex then;do;parse value readln(gfile) with wave"/"nck"/"rep;call setclip(ok,1);end;end;if exists('ram:dsound') then;do;if wave ~="" then;do;call open(dfile,'ram:dsound','a');call writeln(dfile,wave"/"nck"/"rep);call close(dfile);end;end;else;do;call open(dfile,'ram:dsound',"w");if wave ~="" then;do;call writeln(dfile,wave"/"nck"/"rep);end;call close(dfile);end;end;call close(gfile);call getclip(ok);if result=1 then;do;address command 'delete ram:soundin';address command 'copy ram:dsound to ram:soundin';address command 'delete ram:dsound';call setclip(ok,0);call update2;exit;end;else;do;address command 'delete ram:dsound';end;address command 'delete 'temps||'/'wav;call updateop;clrbut:;call setclip(sp,0);call setclip(tfrs,0);call setclip(np,0);call setclip(del,0);call setenv(sget,0);call setclip(sget,0);call setclip(pcg,0);call setclip(lt,0);call setclip(nckply,0);exit;del:;call setclip(sp,0);call setclip(tfrs,0);call setclip(np,0);call setclip(del,1);call setenv(sget,0);call setclip(sget,0);call setclip(pcg,0);call setclip(lt,0);call setclip(nckply,0);exit;quitting:;call setenv(stp,1);if show('P',host) then;do;address(host);getmynick;'raw notice' result' :'"DoSounds is now OFF";end;call setenv(sget,0);call setclip(sget,0);call setclip(sp,0);call setclip(del,0);call setclip(pcg,0);call setclip(nckply,0);call showdir(temps,'f');if result ~="" then call warn;address BUILD 'quit';call quitclean;exit;pcget:;address(host);parse value name with wave"."crap"," junk nck"," junkk ","ref;if nck="" then exit;nck=strip(nck);wave=wave".wav";'say /msg' nck "!"nck wave;call wfile;exit;pcg:;call setclip(pcg,1);call setenv(sget,0);call setclip(sget,0);call setclip(tfrs,0);call setclip(sp,0);call setclip(del,0);call setclip(np,0);call setclip(lt,0);call setclip(nckply,0);exit;flushg:;address command 'delete ram:soundin';call updateop;exit;lt:;call setclip(lt,1);call setclip(pcg,0);call setenv(sget,0);call setclip(sget,0);call setclip(tfrs,0);call setclip(sp,0);call setclip(del,0);call setclip(np,0);call setclip(nckply,0);exit;last:;address(host);parse value name with wave"."crap"," junk nck"," junkk ","ref;if nck="" then exit;nck=strip(nck);wave=wave".wav";'say' "!"nck wave;call wfile;exit;nckply:;call setclip(nckply,1);call setclip(lt,0);call setclip(pcg,0);call setenv(sget,0);call setclip(sget,0);call setclip(tfrs,0);call setclip(sp,0);call setclip(del,0);call setclip(np,0);exit;nkplay:;snddir='sounds:';parse value name with name","len lgth;if len=">" then;do;len=lgth;address command 'assign sounds: 'temps add;snddir='ram:tempsound/';end;snd=snddir||name;getselecteduser;ncky=result;'say /ctcp' ncky 'sound' name;address command 'play16 'snd;exit;refrsh:;call setclip(tfrs,0);call getclip(tfrs);call refresh;buildorg:;call listWaves;address BUILD;window ID WOLST TITLE "Organizer" port build;menu LABEL "Project";item COMMAND '"getsfile.amirx 'des.'%s"' LABEL Exit;endmenu;group HORIZ;group LABEL "FROM";group ID REG REGISTER LABELS labs;do r=0 to pages;place=LST||r;group;list ID place COMMAND '"getsfile.amirx 'des.'%s"' TITLE '"\033uWav List,\033uSize"' ATTRS muia_List_Format '"D=30 MIW=25,MIW=25"';endgroup;end;endgroup;endgroup;labs=right(labs,length(labs)-2);group LABEL "TO";group ID REC REGISTER LABELS labs;do r=1 to pages;group;list ID SL||r TITLE '"\033uWav List,\033uSize"' ATTRS muia_List_Format '"D=30 MIW=25,MIW=25"';endgroup;end;endgroup;endgroup;endgroup;endwindow;call open('sfile','ram:soundfile','r');do while ~eof('sfile');parse value readln('sfile') with stuff ":" name ":" len ":" com;if com="" then com=0;strng=name","len;index=right(com,1);if name ~="" then list ID LST||index INSERT POS List_Insert_Bottom STRING strng;if com~="" then;do;if name ~="" then list ID SL||index INSERT POS List_Insert_Bottom STRING strng;end;end;exit;listWaves:;labs="";address command "list sounds: p=#?.wav lformat=%p%n:%l:%c >ram:wavs quick";address command "sort ram:wavs ram:soundfile";call open(file,'ram:env/dosound.config','r');parse value readln(file) with settings;parse value readln(file) with pages;do i=1 to pages;parse value readln(file) with LT.i;if labs=""then;do;labs="?,"||LT.i",";end;else;do;labs=labs||LT.i",";end;lab="lab"||i;dog=LT.i;call setclip(lab,dog);call setclip(page,pages);end;call close(file);return;des:;name=right(name,length(name)-4);if name=exit then call xit;address build;group ID REG REGISTER;pg=result;group ID REC REGISTER;pt=result;call getclip(page);pages=result;take=LST0;do i=1 to pages;clip="lab"||i;call getclip(clip);if result=pg then;do;take=LST||i;tplac=i;end;if result=pt then;do;place=SL||i;add=i;end;end;upd=LST||add;list ID take POS muiv_List_Remove_selected STRING "";list ID place INSERT STRING name;parse value name with nam","garb;address command 'filenote sounds:'upper(nam) add;call place;xit:;address build;window ID WOLST close;call refresh;exit;place:;call busy;list ID SL||tplac STRING;list ID upd STRING;address command "list sounds: p=#?.wav lformat=%p%n:%l:%c >ram:wavs quick";address command "sort ram:wavs ram:soundfile";call open('sfile','ram:soundfile','r');do while ~eof('sfile');parse value readln('sfile') with stuff ":" name ":" len ":" com;strng=name","len;if com=add then;do;if name ~="" then list ID upd INSERT POS List_Insert_Bottom STRING strng;end;if com=tplac then;do;if name ~="" then list ID SL||tplac INSERT POS List_Insert_Bottom STRING strng;end;end;call busyend;exit;OK:;call busy;call open(cfile,'ram:env/dosound.config','r');parse value readln(cfile) with junk;parse value readln(cfile) with junk;call getclip(pgs);pages=result;do i=1 to pages;parse value readln(cfile) with LS.i;end;call close(cfile);if exists('ram:env/dag') then;do;call getenv(dag);ag=result;end;if exists('ram:env/das') then;do;call getenv(das);as=result;end;if exists('ram:env/dmaxg') then;do;call getenv(dmaxg);mxg=result;end;if exists('ram:env/dsmax') then;do;call getenv(dsmax);smx=result;end;call getclip(pgs);pages=result;call getclip(tem);temps=result;call getclip(temp);if result ~="" then temps=result;call open(cfile,'ram:dosound.config','w');call writeln(cfile,ag","as","mxg","smx);call close(cfile);call open(cfile,'ram:dosound.config','a');call writeln(cfile,pages);call getclip(pgs1);ppgs=result;do i=1 to pages;if i>ppgs then LS.i="";call writeln(cfile,LS.i);end;call writeln(cfile,temps);call close(cfile);address build;window ID STGS close;call settings;busy:;if btxt="" then btxt="\033c DoSound is busy. Please Wait.";address build;window ID BSY;group;group;text LABEL btxt;endgroup;group HORIZ;object CLASS '"Busy.mcc"';endgroup;endgroup;endwindow;return;busyend:;address build;window ID BSY CLOSE;return;lastsave:;address command 'copy sys:prefs/env-archive/dosound.config to ram:env';address build;call busy;window ID STGS close;call settings;mainrefresh:;address build;window ID WSLST close;address command 'delete ram:env/dosound.config';address command 'copy ram:dosound.config to ram:env/dosound.config';address command 'delete ram:dosound.config';address command 'rx buildsound.amirx';return;instant:;call getclip(com1);comercial=result;address build;window ID INST TITLE '"CHANGE MESSAGE"';menu LABEL "Project";item COMMAND '"getsfile.amirx end"' LABEL "Exit";endmenu;group;group;text LABEL '\033c The text following a played sound is: \n ~~With \033bDoSound\033n vX.X~~ \n You may add anything of your choosing\n Place bold text between < >';endgroup;group;STRING ID COM1 CONTENT comercial;endgroup;group;button ID USE COMMAND '"getsfile.amirx instuse"' LABEL USE;endgroup;endgroup;endwindow;call setclip(inst,instant);string ID COM1;comercial=result;call setclip(com1,comercial);exit;warn:;address build;window ID WARN TITLE '"WARNNING!!!"' port build;group;text LABEL "You have left files in Tempsound \n If you wish to \033bSAVE\033n press SAVE. \n Or press OPERATOR \n Or press DELETE to \033bNOT\033n Save \nPress \033bLEAVE\033n to forget it and exit";endgroup;group HORIZ;button ID WSV COMMAND '"getsfile.amirx 'warnsave'"' LABEL "SAVE";button ID WOP COMMAND '"getsfile.amirx 'warnop'"' LABEL "OPERATOR";button ID WCAN COMMAND '"getsfile.amirx 'warnend'"' LABEL "DELETE";button ID WLIT COMMAND '"getsfiLe.amirx %s"' LABEL "LEAVE";endgroup;endwindow;call quitclean;exit;quitclean:;address command 'delete ram:nwaV';address command 'delete ram:soundfile';address command 'delete ram:soundin';address command 'delete ram:tempwaVs';address command 'delete ram:twaVs';address command 'delete ram:waVs';address command 'delete ram:retreaved';exit
